﻿Imports System.Data
Imports WSEntidades
Imports MySql.Data.MySqlClient
Public Class PerfilFact
    Public Shared Function Build(ByVal dr As MySqlDataReader) As perfilBE
        Dim tmpPerfil As perfilBE = New perfilBE()
        Try
            With tmpPerfil
                .IdPerfil = convertDTFromDb.convertInt32(dr.Item("IdPerfil"))
                .Perfil = convertDTFromDb.ConvertString(dr.Item("Perfil"))
                If (.Perfil.ToUpper() <> "ADMINISTRADOR") Then
                    Select Case convertDTFromDb.ConvertString(dr.Item("Activo"))
                        Case "S"
                            .Activo = perfilBE.ActivoPerfil.Activo
                        Case "N"
                            .Activo = perfilBE.ActivoPerfil.Inactivo
                        Case Else
                            .Activo = perfilBE.ActivoPerfil.Inactivo
                    End Select
                Else
                    .Activo = perfilBE.ActivoPerfil.Activo
                End If
            End With
            Return tmpPerfil
        Catch ex As Exception
            Throw
        Finally
            tmpPerfil = Nothing
        End Try
    End Function
End Class
